home *** CD-ROM | disk | FTP | other *** search
/ Windows News 2005 November / WNnov2005.iso / Windows / Equipement / hMailServer / hMailServer-4.1-Build-136.exe / {app} / PHPWebAdmin / include / directory.php next >
Encoding:
PHP Script  |  2005-04-04  |  2.1 KB  |  63 lines
  1. <?
  2. /* Written by johnm */
  3. function getMyServerURIPath() { 
  4. /** Get current URI Path on Server, including protocol + trailing slash **/ 
  5.  
  6.   /* get protocol */ 
  7.   $currURL = "http"; 
  8.   if (array_key_exists("HTTPS", $_SERVER) && strtolower($_SERVER["HTTPS"]) == 'on') { 
  9.     $currURL.="s"; 
  10.   } 
  11.   $currURL.= "://"; 
  12.   /* add server name */ 
  13.   $currURL.= $_SERVER['HTTP_HOST']; 
  14.   
  15.   /* get path name */ 
  16.   /* try to use PHP_SELF first... */ 
  17.   if (!empty($_SERVER['PHP_SELF'])) { 
  18.     $strScript = $_SERVER['PHP_SELF']; 
  19.   } else if (!empty($_SERVER['SCRIPT_NAME'])) { 
  20.     /* otherwise, try SCRIPT_NAME */ 
  21.     $strScript = $_SERVER['SCRIPT_NAME']; 
  22.   } else {  
  23.     /* last resort - quit out and return nothing */ 
  24.     $strScript ="/" ; //return null; 
  25.   } 
  26.   /* remove filename */ 
  27.   /* find last frontslash in filename */ 
  28.   $intLastSlash = strrpos($strScript, '/'); 
  29.   /* check if last backslash is more far away in filename */ 
  30.   if (strrpos($strScript, "\\")>$intLastSlash) { 
  31.     /* if so, use the backslash position instead */ 
  32.     $intLastSlash = strrpos($strScript, "\\"); 
  33.   } 
  34.   /* cut out the filename */ 
  35.   if ($intLastSlash==0) 
  36.     { $currURL.= $strScript; } 
  37.   else 
  38.     { $currURL.= substr($strScript, 0, $intLastSlash+1); } 
  39.  
  40.   /* done, return protocol + servername + path + trailing slash */ 
  41.   return $currURL; 
  42. } 
  43.  
  44. /* Written by johnm */
  45. function getMyServerFilePath() { 
  46. /** Get current absolute File Path on Server, including drive, etc whatever we have **/ 
  47. /** including trailing slash (forward or backward, whatever) **/ 
  48.   $currPath = $_SERVER['PATH_TRANSLATED']; 
  49.   
  50.   /* find last frontslash in filename */ 
  51.   $intLastSlash = strrpos($currPath, '/'); 
  52.   /* check if last backslash is more far away in filename */ 
  53.   if (strrpos($currPath, "\\")>$intLastSlash) { 
  54.     /* if so, use the backslash position instead */ 
  55.     $intLastSlash = strrpos($currPath, "\\"); 
  56.   } 
  57.  
  58.   /* cut out the filename */ 
  59.   if ($intLastSlash!=0) 
  60.    { $currPath = substr($currPath, 0, $intLastSlash+1); } 
  61.   return $currPath; 
  62. } 
  63. ?>